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ibs e 3: VAX-11 Bliss-32 V4.0-7 1 
EDTSTIAUTO = enable auto-repeat 14- 338: 198 9}: 32 :t DISKSVMSMASTER:CEDT Oeae TIAUTO.BLI;1 ron (1) 


ZSBTT mh = enable auto-repeat' 
MODULE EDTSTIAUTO ( ! Enable eyteere eat 
0 ENT = ‘'v04-000' ! File: TIAUTO.BLI Edit: JBS1006 
= 
BEGIN 


VSR AAAAAAAAAAAAAAAAEAAAAAAAAEEEEA EATER EAA AEAAAAAAAAEAERAAAEEEAAAAREEEEE 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED 


ie re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ogy 
ONLY IN ACCORDANCE Wl T H_THE 


; OF CH OL 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY "OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
oa 
® 
® 
® 
® 
x 
® 
ie TRANSFERRED. * 
® 
® 
m 
® 
® 
® 
® 
® 
® 
® 


a at as ed de dd 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
& eokatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


Ic 
ENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRA RARR RAE AAAAARORAAAAAEAERERARARETEATAAAERETEEEAAAAREAARAAAAAEEAAREARAAKeEEE 
i] 


te 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


' 

i 

i 

i 

i 

This module enables the auto-repeat VT100 function. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 
MODIFIED BY: 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


1-001 - Original. DJS 18-FEB-1981. This module was created b 
extracti ng routine EDTS$$TI ~ENBLA TREP from module TINPUT. 
Regular tee the noes ore 4-Feb-1981 
Fix module name. jo-na r-1981 
i8s ods 139. ouch sit nothing is sent to the terminal. 
opecen ameter, to turn autorepeat on or off. JBS 30-Jan-1982 
- Use EDT$$G_ENB  AUTRPT to suppress actually sending the control 
sequences. JBS 09-Feb-1 
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SRS bbo Declarations 


TSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTS$T1_ENBLAUTREP : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


ESSSP OSes ssy 


BAVSAHATASSSLSSRERLS SEE 


; 1 

3 1 

: 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1 

5 1 

5 1 

3 1 

: 1 

; ¢ 4 

3 : 1! 

3 644 1 ! MACROS: 

g 645 1! 

3 . : : NONE 

3 : 8 1 ! EQUATED SYMBOLS: 

; 78 : 1! 

; 650 1 

3 0 bee) 1 BIND 

3 1 2g 1 AUTO_REPT = UPLIT (ZSTRING (ZCHAR (ASC_K ESC), *C?8h')), 
3 ¢ 2 ! NO_REPT = UPLIT (ZSTRING (XZCHAR (ASC_K~ESC), ‘C28L')); 
3 655 1 LITERAL 

3 5 2$ 1 AUTO_REPT_LENGTH = 5, 
; $ 34 : NO_REPT_LEN = 5; 

; «88 59 1! 

4 9 B60 : OWN STORAGE: 

3 4! § : NONE 

$ 3 1 ! EXTERNAL REFERENCES: 
: 94 5 1! 

; #695 1! In the routine 
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X- -32 v4.0 
SKSVMSMASTER: 


ss 
STER:CE Ebi’ sre TIAUTO.BLI; if? 
ZSBTTL "EDTSSTI_ENBLAUTREP = enable auto-repeat' 


GLOBAL ROUTINE EDTSSTI_ENBLAUTREP ( ! Enable auto-repeat 
! 1 = turn on, 0 = turn off 
) : NOVALUE = 


'ee 

FUNCTIONAL DESCRIPTION: 

! This routine turns auto repeat on and off, if possible. 
; FORMAL PARAMETERS: 

MODE 1 = turn autorepeat on, 0 = turn autorepeat off 
| IMPLICIT INPUTS: 

EDT$$G_TI_TYP 

: EDTS$$G_K_AUTRPT 

EDT$$G_ERB_AUTRPT 

IMPLICIT OUTPUTS: 

EDTS$G_K_AUTRPT 

ROUTINE VALUE: 

i 

1 

1 

t 

1 

1 

t 


' NONE 
i SIDE EFFECTS: 
i NONE 
BEGIN 
exe ROUTINE 
EDTSSFMT_LIT; ! Send a string to the terminal 
=o 
eet $G_T ! Terminal type 
EDTS$$G -ENB TOfRPT. i 1 = send control sequences, 0 = don't 
EDTS$$G_K_AOTRPT; ' Auto repeat flag 


CASE .MODE FROM 0 TO 1 OF 
SET 


(0) : 
BEGIN 
‘¢ 


: Turn autorepeat off 


IF ((.EDTS$G_TI_TYP EQL TERM_VT100) AND (.EDTS$G_K_AUTRPT EQL 1) AND .EDTS$$G_ENB_AUTRPT) 
EDTSSFMT_LIT (NO_REPT, NO_REPT_LEN); 


H 7 
16-Sep-19 :53:27 VAX-11 Bliss-32 V4.0-74 P 
19-351 38e 93:32:85 DI SKSVMSMASTERSCEDT SRCSTIAUTO.BLI;1 


EDTSTIAUTO 
$0000 EDTSSTI_ENBLAUTREP = enable auto-repeat 
ge F 724 
; 185 725 EDTS$$G_K_AUTRPT = 0; 
: ; 4 $ END; 
: 4 7 (1) : 
3 f ts BEGIN 
: 18¢ , Raga autorepeat on 
3 164 4 4 IF ((EDTS$G_T1_TYP EQL TERM_VT100) AND (.EDT$$G_K_AUTRPT EQL 0) AND .EDT$$G_ENB_AUTRPT) 
; 16 , EDTSSFMT_LIT (AUTO_REPT, AUTO_REPT_LENGTH); 
.% 7 DT$$G_K_AUTRPT = 1; 
3 188 7 4b tz f 
: 170 740 TES; 
: 171 741 
3 176 oe) RETURN; 
3; W 74 $ ! of routine EDTS$TI_ENBLAUTREP 
-TITLE EDTSTIAUTO 
-IDENT \V04-000\ 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
00 00 00 68 38 ¢ 5B 18 00000 P.AAA: .ASCII RA pe ae ote 
00 00 00 6C 38 3F 58 1B 00008 P.AAB: ASCII <27>\£281\<0><0><0> 
AUTO_REPT= P.AAA 
NO_REPT= P.AAB 
EXTRN EDTSSFMT LIT, EDTS$G_TI_TYP 
EXTRN EDTS$$G_ENB_AUTRPT 
EXTRN EDTS$$G-K_AOTRPT 
001¢ 00000 ENTRY EDTSS$TI_ENBLAUTREP, Save R2,83,R4 
9E 0000 VAB EDTSSFMT_LIT, R4 
9E 000 MOVAB EDT$$G_ERB_AUTRPT, R3 
4 9019 MOVAB EDT$$G-K_AOTRPT, R2 
D 01 VL  EDTS$G-TT_TYP, RO 
CF Of CASEL MODE ¥0,7#1 
0023 18: <WORD 2$-1$,- 
4-18 
D1 99 7 2%: RO, #2 
if A BNEQ 3$ 
p C CMPL GDTSSG_k_AUTRPT, #1 
: F BNEQ $ 
E 1 BLBC EDTS$G_ENB_AUTRPT, 3$ 
bb PUSHL @# 
F PUSHAB NO_REPT 
FB CALLS @ EDTSSERT LIT 
p4 C 38: CURL EDTS$G_k_AUTRPT 
D1 f 4$: CMPL = RO, #2 
: 4 BNEQ 
D 4 TSTL  EDT$$G_K_AUTRPT 


4 
(3) 


| 
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oo So 
SN o 
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EDTSSTI_ENBLAUTREP = enable auto-repeat ite ~eSp=}882 93:32:25 | WNdUwGhaStensckor sacSriauto.eui:1"* 


5$ 
08 BLBC Sep ENB_AUTRPT, 5$ 
P PUSHL 


A PU a2, OR 
be 5 CALLS EDT 18 FMT_LIT 
1 : VL 1, EDTS$G_K_AUTRPT 


62 
; Routine Size: 87 bytes, Routine Base: _EDTSCODE + 0010 
174 gree 1 

175 745 1 !<BLF/PAGE> 


Pe Se Se Se Se Be Se 


% 33 


0736 


? 
¥0e-000" EDTSSTI_ENBLAUTREP = enable auto-repeat 1e78ep- 4882 93:32:25 | UN sumGhaSTERsceoT sacSriauTO.eLI:1 
Wr Ore 1 END ! of module EDTSTIAUTO 
178 748 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 103 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eeeeeeee Symbols eoecece Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA e: EDT. SRCJEDT.L32;1 377 2 0 40 00:00.2 
~$255$0UA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$: TIAUTO/OBJ=OBJ$:TIAUTO MSRC$:TIAUTO.BLI/UPDATE=(ENH$: TIAUTO) 


Size: 87 code + 16 datz bytes 
Run Time: oe 2 

Elapsed Time: 21 

Lines/CPU Min: 42 


eee Aa Rage 114 
Y Used: 67 pages 
—— ation Complete 
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